home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
os20
/
wb
/
toolmanager2_0.lha
/
ToolManager
/
Programmers
/
modula
/
ToolManagerD.def
next >
Wrap
Text File
|
1992-09-26
|
3KB
|
143 lines
DEFINITION MODULE ToolManagerD; (*$ Implementation:=FALSE *)
(*
* libraries/toolmanager.h V2.0
*
* shared library include file
*
* (c) 1990-1992 Stefan Becker
*)
(*
* M2Amiga Modula-2 declaration
*
* (FreeWare) 1992 JOW
*)
IMPORT UD:UtilityD;
IMPORT ID:IntuitionD;
IMPORT S:SYSTEM;
CONST
tmName="toolmanager.library";
(* ToolManager Object Types
TYPE
TMObjType=(otExec,otImage,otSound,otMenu,otIcon,otDock);
*)
CONST
otExec=0;
otImage=1;
otSound=2;
otMenu=3;
otIcon=4;
otDock=5;
(* internal handle structure, PRIVATE *)
TYPE
TMHandlePtr=S.ADDRESS;
(* ToolManager Object Properties (see Object.doc) *)
(* Type: TMOBJTYPE_EXEC *)
OTExecTags=
(opArguments:=UD.tagUser+1,
opCommand, (* Also used for TMOBJTYPE_SOUND *)
opCurrentDir,
opDelay,
opExecType,
opHotKey, (* Also used for TMOBJTYPE_DOCK *)
opOutput,
opPath,
opPriority,
opPubScreen, (* Also used for TMOBJTYPE_DOCK *)
opStack,
opToFront);
(* Type: TMOBJTYPE_IMAGE *)
OTImageTags=
(opFile:=UD.tagUser+257,
opData);
(* Type: TMOBJTYPE_SOUND *)
OTSoundTags=
(opPort:=UD.tagUser+513);
(* Type: TMOBJTYPE_MENU/ICON *)
OTMenuIconTags=
(opExec:=UD.tagUser+769,
opSound);
(* Type: TMOBJTYPE_ICON *)
OTIconTags=
(opImage:=UD.tagUser+1025,
opShowName);
(* Type: TMOBJTYPE_ICON/DOCK *)
OTIconDockTags=
(opLeftEdge:=UD.tagUser+1281,
opTopEdge);
(* Type: TMOBJTYPE_DOCK *)
OTDockTags=
(opActivated:=UD.tagUser+1536,
opCentered,
opColumns,
opFont,
opFrontMost,
opMenu,
opPattern,
opPopUp,
opText,
opTitle,
opTool,
opVertical);
(* Types for TMOP_ExecType *)
TYPE
ExecTypes=(etCLI,etWB,etARexx,etHook);
(* Data structures for storing image sequences (tmotImage/tmopData) *)
(* TMImageNode contains the data for ONE picture. Several nodes are joined *)
(* into a single-linked chain via TMImageNode.next *)
TYPE
TMImageNodePtr=POINTER TO TMImageNode;
TMImageNode=
RECORD
next: TMImageNodePtr; (* pointer to next node *)
data: S.ADDRESS; (* MEMF_CHIP memory!! *)
END;
(* TMImageData contains information about the image data, like sizes etc. *)
(* You MUST initialize BOTH Image structures and they MUST BE identical *)
(* except of the ImageData pointer. normal.ImageData should point to *)
(* an image data which shows the inactive state and tmid_Selected.ImageData *)
(* should point to an image which shows the active state. *)
TYPE
TMImageData=
RECORD
normal: ID.ImagePtr; (* inactive state *)
selected: ID.ImagePtr; (* active state *)
data: TMImageNodePtr; (* chain of images *)
END;
END ToolManagerD.def